home *** CD-ROM | disk | FTP | other *** search
/ An Introduction to Progr…l Basic 6.0 (4th Edition) / An Introduction to Programming using Visual Basic 6.0.iso / PROGRAMS / CH11 / 11-3-4B.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-09-20  |  2.5 KB  |  86 lines

  1. VERSION 5.00
  2. Begin VB.Form frmSources 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Sources of Income"
  5.    ClientHeight    =   1872
  6.    ClientLeft      =   2460
  7.    ClientTop       =   3108
  8.    ClientWidth     =   3168
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   7.8
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    LinkTopic       =   "Form2"
  19.    PaletteMode     =   1  'UseZOrder
  20.    ScaleHeight     =   1872
  21.    ScaleWidth      =   3168
  22.    Begin VB.CommandButton cmdCompute 
  23.       Caption         =   "Compute Total Income"
  24.       Height          =   495
  25.       Left            =   120
  26.       TabIndex        =   6
  27.       Top             =   1200
  28.       Width           =   2895
  29.    End
  30.    Begin VB.TextBox txtDividend 
  31.       Height          =   285
  32.       Left            =   1680
  33.       TabIndex        =   5
  34.       Top             =   840
  35.       Width           =   1335
  36.    End
  37.    Begin VB.TextBox txtInterest 
  38.       Height          =   285
  39.       Left            =   1680
  40.       TabIndex        =   4
  41.       Top             =   480
  42.       Width           =   1335
  43.    End
  44.    Begin VB.TextBox txtWages 
  45.       Height          =   285
  46.       Left            =   1680
  47.       TabIndex        =   3
  48.       Top             =   120
  49.       Width           =   1335
  50.    End
  51.    Begin VB.Label lblDividend 
  52.       Caption         =   "Dividend Income"
  53.       Height          =   255
  54.       Left            =   120
  55.       TabIndex        =   2
  56.       Top             =   840
  57.       Width           =   1455
  58.    End
  59.    Begin VB.Label lblInterest 
  60.       Caption         =   "Interest Income"
  61.       Height          =   255
  62.       Left            =   240
  63.       TabIndex        =   1
  64.       Top             =   480
  65.       Width           =   1335
  66.    End
  67.    Begin VB.Label lblWages 
  68.       Caption         =   "Wages"
  69.       Height          =   255
  70.       Left            =   960
  71.       TabIndex        =   0
  72.       Top             =   120
  73.       Width           =   615
  74.    End
  75. Attribute VB_Name = "frmSources"
  76. Attribute VB_GlobalNameSpace = False
  77. Attribute VB_Creatable = False
  78. Attribute VB_PredeclaredId = True
  79. Attribute VB_Exposed = False
  80. Private Sub cmdCompute_Click()
  81.   Dim sum As Single
  82.   sum = Val(txtWages.Text) + Val(txtInterest.Text) + Val(txtDividend.Text)
  83.   frmIncome.txtTotal.Text = FormatCurrency(Str(sum))
  84.   frmSources.Hide
  85. End Sub
  86.